data_mutate %>%
filter(!section %in% sections) %>%
left_join(main_topic)
Joining, by = "byline"
LS0tDQp0aXRsZTogIlVubGFiZWxlZCBzdG9yeSBtYXRjaGluZyINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCmBgYHtyIHBhY2thZ2VzfQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KGRyYWtlKQ0KYGBgDQoNCmBgYHtyIGRhdGF9DQpsb2FkZChkYXRhX211dGF0ZSkNCmxvYWRkKHNlY3Rpb25zKQ0KYGBgDQoNCmBgYHtyfQ0KbWFpbl90b3BpYyA8LSBkYXRhX211dGF0ZSAlPiUgDQogIGdyb3VwX2J5KGJ5bGluZSwgc2VjdGlvbikgJT4lIA0KICBzdW1tYXJpemUoc3Rvcmllcz1uKCkpICU+JSANCiAgbXV0YXRlKHBjdD1zdG9yaWVzL3N1bShzdG9yaWVzKSkgJT4lIA0KICBmaWx0ZXIoIWlzLm5hKHNlY3Rpb24pICYgcGN0PDEgJiBzZWN0aW9uICVpbiUgc2VjdGlvbnMpICU+JSANCiAgZmlsdGVyKHBjdD09bWF4KHBjdCkpICU+JSANCiAgc2VsZWN0KGJ5bGluZSwgc2VjdGlvbikgJT4lIA0KICByZW5hbWUoIm1haW5fc2VjdGlvbiI9c2VjdGlvbikNCg0KZGF0YV9tdXRhdGUgJT4lIA0KICBmaWx0ZXIoIXNlY3Rpb24gJWluJSBzZWN0aW9ucykgJT4lIA0KICBsZWZ0X2pvaW4obWFpbl90b3BpYykNCg0KbWFpbl90b3BpYw0KYGBgDQoNCg==